20 TURN = 0: PRINT "----------------------------------------";: INVERSE : PRINT " LET'S PLAY CROSS WORD! ";: NORMAL : PRINT "---------------------------------------- (A LESSON IN USER-FRIENDLY SOFTWARE)": PRINT
50 FOR TURN = 1 TO 9: PRINT "PRESS ANY KEY: ";: FLASH : PRINT " <CTRL-H>";: NORMAL
60 K = PEEK( -16384): IF K <160 THEN 60
65 POKE -16368,0
68 IF NOT ST THEN ST = 1:X = 1: GOSUB 501: GOTO 80
70 X = INT( RND(1) *12) +1: ON X GOSUB 501,502,503,504,505,506,507,508,509,510,511,512
75 KEY$ = CHR$(K -128): IF KEY$ = " " THEN KEY$ = "SPACE"
80 KEY$ = CHR$(34) +KEY$ + CHR$(34)
84 IF X = 10 THEN A$ = " " +KEY$ +" IS A DUMB KEY! "
85 INVERSE : PRINT A$
90 NORMAL : IF LEFT$(A$,4) < >" NOT" THEN 100
95 HTAB 21: PRINT "----";
100 PRINT : FOR I = 1 TO 55:S = PEEK( -16336): NEXT I,TURN
110 PRINT "WANNA PLAY AGAIN? (Y/N):";: POKE -16368,0: GET A$: PRINT A$
125 POKE -16368,0
130 IF A$ = "N" THEN 160
135 IF A$ < >"Y" THEN 150
140 PRINT : PRINT "DON'T RUSH ME!": HTAB 7: PRINT "----": FOR I = 1 TO 999: NEXT I: PRINT : PRINT : PRINT : GOTO 20
150 PRINT : PRINT "I SAID Y OR N!! ";: FLASH : PRINT "CAN'T YOU R<CTRL-G>E<CTRL-G>A<CTRL-G>D<CTRL-G>?<CTRL-G>?<CTRL-G>": NORMAL : HTAB 8: PRINT "- -": GOTO 110
160 FOR I = 1 TO 23: POKE -16304,0: FOR J = 1 TO 9: NEXT J: TEXT : FOR J = 1 TO 5:S = PEEK( -16336): NEXT J,I
170 PRINT : PRINT "OH, YEAH!?": HTAB 5: PRINT "----": FOR I = 1 TO 2000: NEXT : GOTO 63900
500 REM <CTRL-M><CTRL-M>CROSS WORDS<CTRL-M>-----------